home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / btrieve / xtr401.exe / PATCH401.BAT < prev    next >
DOS Batch File  |  1991-06-20  |  3KB  |  127 lines
  1. echo off
  2. CLS
  3. echo *** MAKE SURE THAT YOU USE THE ORIGINAL (UNPATCHED) RELEASED VERSION
  4. echo     OF THE PRODUCT YOU ARE PATCHING.   PATCHING AN ALREADY PATCHED COPY
  5. echo     MAY CAUSE UNPREDICTABLE ERRORS.
  6. echo  
  7. echo     WHEN PATCHING THIS PRODUCT, BOTH THE XTRIEVE.EXE AND THE CORRESPONDING
  8. echo     XREPORT.OVL FILES WILL BE PATCHED.
  9. echo  
  10. IF  %1! == ! GOTO PARAM
  11. IF  %1  == NET   GOTO ENSET
  12. IF  %1  == net   GOTO ENSET
  13. IF  %1  == OS2   GOTO ENSET
  14. IF  %1  == os2   GOTO ENSET
  15. IF  %1  == SIN   GOTO ENSET
  16. IF  %1  == sin   GOTO ENSET
  17. IF  %1  == REXEC GOTO REXEC
  18. IF  %1  == rexec GOTO REXEC
  19. GOTO PARAM
  20. ::
  21. :ENSET
  22. SET XTR_FIL=XTRIEVE.EXE
  23. SET XTR_OVL=XREPORT.OVL
  24. SET XTRO_FIL=XTR%1.ORG
  25. SET XTRO_OVL=XREP%1.ORG
  26. SET XTRP_FIL=XPAT%1.401
  27. SET XTRP_OVL=RPAT%1.401
  28. IF %1 == OS2 SET XTRP_OVL=SKIP
  29. IF %1 == os2 SET XTRP_OVL=SKIP
  30. GOTO MPATCH
  31. ::
  32. :REXEC
  33. SET XTR_FIL=RPTEXEC.EXE
  34. SET XTR_OVL=SKIP
  35. SET XTRO_FIL=RPTEXEC.ORG
  36. SET XTRO_OVL=SKIP
  37. SET XTRP_FIL=RXPAT.401
  38. SET XTRP_OVL=SKIP
  39. GOTO MPATCH
  40. ::
  41. :MPATCH
  42. ::
  43. ::  PATCHING EXECUTABLE FILE
  44. ::
  45. IF NOT EXIST PI.EXE GOTO NOPI
  46. IF NOT EXIST %XTRP_FIL% GOTO NOPAT
  47. IF NOT EXIST %XTR_FIL% GOTO NOFILE
  48. IF NOT EXIST %XTRO_FIL% REN %XTR_FIL% %XTRO_FIL%
  49. IF EXIST %XTR_FIL% DEL %XTR_FIL%
  50. :INPATCH
  51. echo  
  52. echo %XTR_FIL% VERSION 401 ** PATCHING ..........
  53. echo  
  54. COPY %XTRO_FIL% %XTR_FIL%
  55. PI %XTR_FIL% %XTRP_FIL%
  56. ::
  57. ::  PATCHING REPORT OPTION FILE
  58. ::
  59. IF %XTRP_OVL% == SKIP GOTO FIXDONE
  60. IF NOT EXIST %XTRP_OVL% GOTO NOOPAT
  61. IF NOT EXIST %XTR_OVL% GOTO NOOVL
  62. IF NOT EXIST %XTRO_OVL% REN %XTR_OVL% %XTRO_OVL%
  63. IF EXIST %XTR_OVL% DEL %XTR_OVL%
  64. :INOVL
  65. echo  
  66. echo %XTR_OVL%  REPORT OPTION VERSION 401 ** PATCHING ..........
  67. echo  
  68. COPY %XTRO_OVL% %XTR_OVL%
  69. PI %XTR_OVL% %XTRP_OVL%
  70. GOTO FIXDONE
  71. ::
  72. :NOPI
  73. echo  
  74. echo CANNOT FIND PI.EXE
  75. echo  
  76. echo The Novell Patch Install Utility (PI.EXE) is required to install
  77. echo the patches for this product.  Please copy PI.EXE to the directory
  78. echo you are working in............................................
  79. GOTO END
  80. ::
  81. :NOPAT
  82. echo  
  83. echo CANNOT FIND %XTRP_FIL%
  84. GOTO END
  85. ::
  86. :NOOPAT
  87. echo  
  88. echo CANNOT FIND %XTRP_OVL%
  89. GOTO END
  90. ::
  91. :NOFILE
  92. IF EXIST %XTRO_FIL% GOTO INPATCH
  93. echo  
  94. echo CANNOT FIND %XTR_FIL%
  95. GOTO END
  96. ::
  97. :NOOVL
  98. IF EXIST %XTRO_OVL% GOTO INOVL
  99. echo  
  100. echo CANNOT FIND %XTR_OVL%
  101. GOTO END
  102. ::
  103. :PARAM
  104. echo THE FORMAT IS:
  105. echo  
  106. echo PATCH401 [type]
  107. echo  
  108. echo WHERE   [type]     IS:    NET     { Xtrieve for NETWORK  }
  109. echo                           OS2     { Xtrieve for OS2      }
  110. echo                           SIN     { Xtrieve  SINGLE-USER }
  111. echo                           REXEC   { REPORT EXECUTIVE     }
  112. echo  
  113. GOTO END
  114. ::
  115. :FIXDONE
  116. echo  
  117. echo XTRIEVE PRODUCT - %1 VERSION 401 ** PATCH COMPLETE **
  118. echo  
  119. ::
  120. :END
  121. SET XTR_FIL=
  122. SET XTR_OVL=
  123. SET XTRO_FIL=
  124. SET XTRO_OVL=
  125. SET XTRP_FIL=
  126. SET XTRP_OVL=
  127.